[ Back ] [ Home ] [ Up ] [ Next ]

للبحث عن ملف داخل الجهاز

اكتب التالي في موديل  Module

Declare Function SearchTreeForFile Lib "IMAGEHLP.DLL" _
      (ByVal lpRootPath As String, _
      ByVal lpInputName As String, _
      ByVal lpOutputName As String) As Long

Public Const MAX_PATH = 260

Public Function FindFile(RootPath As String, FileName As String) As String
      Dim lNullPos As Long
      Dim lResult As Long
      Dim sBuffer As String

      On Error GoTo FileFind_Error

      sBuffer = Space(MAX_PATH * 2)

      lResult = SearchTreeForFile(RootPath, FileName, sBuffer)

      If lResult Then
            lNullPos = InStr(sBuffer, vbNullChar)
            If Not lNullPos Then
                  sBuffer = Left(sBuffer, lNullPos - 1)
            End If
            FindFile = sBuffer
      Else
            FindFile = vbNullString
      End If

      Exit Function

FileFind_Error:
      FindFile = vbNullString
End Function

للبحث عن ملف أكتب التالي في أي مكان تريد، ولا تنس ان تحدد اسم الملف والقرص...

("MsgBox FindFile("c:\", "calc.exe